home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Multiple Scrolling Fields.cpt / Multiple Scrolling Fields / background_2779.txt < prev    next >
Text File  |  1990-12-13  |  927b  |  40 lines
  1. -- background: 2779 from stack: in
  2. -- bmap block id: 3216
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   if the commandKey is down then edit script of target
  9.   pass mouseUp
  10.  
  11. end mouseUp
  12.  
  13.  
  14.  
  15. -- part 18 (button)
  16. -- low flags: 00
  17. -- high flags: 0000
  18. -- rect: left=402 top=26 right=65 bottom=458
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 14767 / 14767
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Let me tell you this
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   show card field "Hello"
  30.   show card field "Hello scroll mask"
  31.   wait until the mouseClick
  32.   set the scroll of card field "Hello" to (14*12) -- numLines * txtHt
  33.   wait until the mouse is Down
  34.   wait until the mouse is Up
  35.   hide card field "Hello scroll mask"
  36.   hide card field "Hello"
  37.   set the scroll of card field "Hello" to (1)
  38. end mouseUp
  39.  
  40.